(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     26547,        888]
NotebookOptionsPosition[     21959,        727]
NotebookOutlinePosition[     22585,        751]
CellTagsIndexPosition[     22506,        746]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["InterfacialThinFilmNLS Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->153672950],

Cell["InterfacialThinFilmNLS`", "Categorization",
 CellLabel->"Context",
 CellID->88874103],

Cell["InterfacialThinFilmNLS/ref/OutputTransferC", "Categorization",
 CellLabel->"URI",
 CellID->152850742]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["OutputTransferC", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["OutputTransferC",
    BaseStyle->"Link",
    ButtonData->"paclet:InterfacialThinFilmNLS/ref/OutputTransferC"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox[
       StyleBox["p", "TI"], 
       StyleBox["x", "TI"]], ",", 
      SuperscriptBox[
       StyleBox["p", "TI"], 
       StyleBox["y", "TI"]], ",", 
      SuperscriptBox[
       StyleBox["p", "TI"], 
       StyleBox["z", "TI"]]}], "}"}], ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    SubsuperscriptBox[
     StyleBox["\[Theta]", "TR"], "0", 
     StyleBox["pm", "TI"]], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["0", "TR"]], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["1", "TR"]]}], "}"}], "\[CenterEllipsis]", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["k", "TI"]], ",", 
        SubscriptBox[
         StyleBox["d", "TI"], 
         StyleBox["k", "TI"]]}], "}"}]}], "}"}], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     RowBox[{"k", "+", "1"}]], ",", 
    StyleBox["v", "TI"], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["sheet", "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the output field transfer coefficient of the \
nonlinear polarization ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     StyleBox["p", "TI"], 
     StyleBox["x", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["p", "TI"], 
     StyleBox["y", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["p", "TI"], 
     StyleBox["z", "TI"]]}], "}"}]]],
 " induced at interface ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " oscillating at frequency ",
 Cell[BoxData[
  StyleBox["\[Omega]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " and with phased-matching angle in medium ",
 Cell[BoxData[
  SubsuperscriptBox[
   StyleBox["\[Theta]", "TR"], "0", 
   StyleBox["pm", "TI"]]], "InlineFormula"],
 ", bulk material refractive indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",
  ShowStringCharacters->False],
 ", thin film layer thicknesses ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["d", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 ", and interfacial polarized sheet refractive index ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["sheet", "TI"]]], "InlineFormula"],
 ". Returns electric field vector ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     StyleBox["e", "TI"], 
     StyleBox["p", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["e", "TI"], 
     StyleBox["s", "TI"]]}], "}"}]], "InlineFormula"],
 ".  Eqs. 3 and 59.\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["OutputTransferC",
    BaseStyle->"Link",
    ButtonData->"paclet:InterfacialThinFilmNLS/ref/OutputTransferC"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SuperscriptBox[
       StyleBox["p", "TI"], 
       StyleBox["x", "TI"]], ",", 
      SuperscriptBox[
       StyleBox["p", "TI"], 
       StyleBox["y", "TI"]], ",", 
      SuperscriptBox[
       StyleBox["p", "TI"], 
       StyleBox["z", "TI"]]}], "}"}], ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox[
         StyleBox["\[Theta]", "TR"], "0", 
         StyleBox["pm", "TI"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["0", "TR"]]}], "}"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubsuperscriptBox[
          StyleBox["\[Theta]", "TR"], "1", 
          StyleBox["pm", "TI"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["1", "TR"]], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["1", "TR"]]}], "}"}], "\[CenterEllipsis]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          SubsuperscriptBox[
           StyleBox["\[Theta]", "TR"], 
           StyleBox["k", "TI"], 
           StyleBox["pm", "TI"]], 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["k", "TI"]]}], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["k", "TI"]]}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{
        SubsuperscriptBox[
         StyleBox["\[Theta]", "TR"], 
         RowBox[{
          StyleBox["k", "TI"], "+", "1"}], 
         StyleBox["pm", "TI"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         RowBox[{"k", "+", "1"}]]}], "}"}]}], "}"}], ",", 
    StyleBox["v", "TI"], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["sheet", "TI"]]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]supply pre-computed phase-matched angles in all materials."
}], "Usage",
 CellChangeTimes->{{3.5984567404110146`*^9, 3.5984568899675684`*^9}, {
  3.598456937517288*^9, 3.5984569653318787`*^9}, {3.598457114398405*^9, 
  3.598457598008066*^9}}],

Cell[TextData[{
 "The elements of the returned electric field vector ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     StyleBox["e", "TI"], 
     StyleBox["p", "TI"]], ",", 
    SuperscriptBox[
     StyleBox["e", "TI"], 
     StyleBox["s", "TI"]]}], "}"}]], "InlineFormula"],
 " are the ",
 Cell[BoxData[
  RowBox[{
   StyleBox["p", "TI"], "-"}]], "InlineFormula",
  ShowStringCharacters->False],
 " and ",
 Cell[BoxData[
  RowBox[{
   StyleBox["s", "TI"], "-"}]], "InlineFormula",
  ShowStringCharacters->False],
 "polarized electric field amplitudes in semi-infinite medium ",
 Cell[BoxData["0"], "InlineFormula",
  ShowStringCharacters->False],
 " or ",
 Cell[BoxData[
  RowBox[{
   StyleBox["k", "TI"], "+", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 ".  "
}], "Notes",
 CellChangeTimes->{{3.5984576104117756`*^9, 3.5984577348388925`*^9}, {
  3.598458143172248*^9, 3.598458161316285*^9}},
 CellID->227795206],

Cell["\<\
Which medium the calculation is being performed depends on the option:\
\>", "Notes",
 CellChangeTimes->{{3.598457698057789*^9, 3.5984577042261415`*^9}, {
  3.5984596651623*^9, 3.5984596763619413`*^9}}],

Cell[BoxData[GridBox[{
   {Cell["   ", "ModInfo"], 
    ButtonBox["DetectionSide",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/DetectionSide"], 
    ButtonBox["First",
     BaseStyle->"Link"], Cell[TextData[{
     "DetectionSide specifies on which side of the system the generated \
fields are to be calculated. Choices are ",
     ButtonBox["First",
      BaseStyle->"Link",
      ButtonData->"paclet:ref/First"],
     " for medium 0 or Last for medium k+1, i.e. reflection or transmission \
geometry."
    }], "TableText"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.598456694868409*^9, 3.59845671900179*^9}, {
  3.5984596893226824`*^9, 3.598459689436689*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Simulated vibrational sum frequency generation from a multilayer thin film \
system with two active interfaces,\" J. Chem. Phys. 138, 154708 (2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1063/1.4799921"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597766065189121*^9, 3.597766067909125*^9}, {
  3.597766108593182*^9, 3.597766108653182*^9}},
 CellID->134447493]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["InputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/InputTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["InternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/InternalTransferC"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExternalTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ExternalTransferC"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.5986380368160176`*^9, 3.5986380487370343`*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell[TextData[ButtonBox["Transfer Matrix Formalism",
 BaseStyle->"Link",
 ButtonData->
  "paclet:TransferMatrixFormalism/guide/Transfer Matrix Formalism"]], \
"MoreAbout",
 CellChangeTimes->{{3.598637807663694*^9, 3.5986378192457104`*^9}},
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Calculate transfer of the y-component nonlinear polarization generated at the \
sum frequency of two input beams at all 3 interfaces of a 3-layer system:\
\>", "Notes",
 CellChangeTimes->{{3.598638098259104*^9, 3.598638108971119*^9}, {
  3.598638144871169*^9, 3.5986381786552167`*^9}, {3.5986382709123464`*^9, 
  3.598638296362382*^9}},
 CellID->9946451],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"<<", "InterfacialThinFilmNLS`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "TransferMatrixFormalism`Data`Indices`"}]}], "Input",
 CellChangeTimes->{{3.5986383066133966`*^9, 3.59863833018543*^9}},
 CellLabel->"In[5]:=",
 CellID->835767564],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"nPTCDIc8", "::", "shdw"}], "MessageName"], ":", 
  " ", "\<\"Symbol \[NoBreak]\\!\\(\\\"nPTCDIc8\\\"\\)\[NoBreak] appears in \
multiple contexts \[NoBreak]\\!\\({\\\"Indices`\\\", \\\"Global`\\\"}\\)\
\[NoBreak]; definitions in context \[NoBreak]\\!\\(\\\"Indices`\\\"\\)\
\[NoBreak] may shadow or be shadowed by other definitions. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/shdw\\\", \
ButtonNote -> \\\"Indices`nPTCDIc8::shdw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5986396242892466`*^9},
 CellLabel->"During evaluation of In[5]:=",
 CellID->147747017],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"nSiO2", "::", "shdw"}], "MessageName"], ":", 
  " ", "\<\"Symbol \[NoBreak]\\!\\(\\\"nSiO2\\\"\\)\[NoBreak] appears in \
multiple contexts \[NoBreak]\\!\\({\\\"Indices`\\\", \\\"Global`\\\"}\\)\
\[NoBreak]; definitions in context \[NoBreak]\\!\\(\\\"Indices`\\\"\\)\
\[NoBreak] may shadow or be shadowed by other definitions. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/shdw\\\", \
ButtonNote -> \\\"Indices`nSiO2::shdw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5986396243692465`*^9},
 CellLabel->"During evaluation of In[5]:=",
 CellID->158155841],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"nSi", "::", "shdw"}], "MessageName"], ":", 
  " ", "\<\"Symbol \[NoBreak]\\!\\(\\\"nSi\\\"\\)\[NoBreak] appears in \
multiple contexts \[NoBreak]\\!\\({\\\"Indices`\\\", \\\"Global`\\\"}\\)\
\[NoBreak]; definitions in context \[NoBreak]\\!\\(\\\"Indices`\\\"\\)\
\[NoBreak] may shadow or be shadowed by other definitions. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/shdw\\\", \
ButtonNote -> \\\"Indices`nSi::shdw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5986396244592466`*^9},
 CellLabel->"During evaluation of In[5]:=",
 CellID->6060215]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"p", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Theta]o1", "=", 
       RowBox[{"64.", "\[Degree]"}]}], ",", 
      RowBox[{"\[Omega]1", "=", 
       RowBox[{"1", "/", "800"}]}], " ", 
      RowBox[{"(*", 
       SuperscriptBox["nm", 
        RowBox[{"-", "1"}]], "*)"}], ",", "\[IndentingNewLine]", 
      RowBox[{"\[Theta]o2", "=", 
       RowBox[{"56", "\[Degree]"}]}], ",", 
      RowBox[{"\[Omega]2", "=", 
       RowBox[{"2960", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "7"}]]}]}], " ", 
      RowBox[{"(*", 
       SuperscriptBox["nm", 
        RowBox[{"-", "1"}]], "*)"}], ",", "\[IndentingNewLine]", "\[Theta]pm",
       ",", "\[Omega]sf", ",", "n0", ",", "ndlist", ",", "nkp1", ",", 
      "nshlist"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Theta]pm", "=", 
      RowBox[{"PhaseMatchAngle", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\[Omega]1", ",", "\[Theta]o1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Omega]2", ",", "\[Theta]o2"}], "}"}]}], "}"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"\[Omega]sf", "=", 
      RowBox[{"\[Omega]1", "+", "\[Omega]2"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"n0", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"ndlist", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nPTCDIc8", "[", 
           RowBox[{"\[Omega]sf", " ", 
            SuperscriptBox["10", "7"]}], "]"}], ",", "100"}], " ", 
         RowBox[{"(*", "nm", "*)"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nSiO2", "[", 
           RowBox[{"\[Omega]sf", " ", 
            SuperscriptBox["10", "7"]}], "]"}], ",", "200"}], " ", 
         RowBox[{"(*", "nm", "*)"}], "}"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nkp1", "=", 
      RowBox[{"nSi", "[", 
       RowBox[{"\[Omega]sf", " ", 
        SuperscriptBox["10", "7"]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"nshlist", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"nPTCDIc8", "[", 
         RowBox[{"\[Omega]sf", " ", 
          SuperscriptBox["10", "7"]}], "]"}], ",", 
        RowBox[{"nPTCDIc8", "[", 
         RowBox[{"\[Omega]sf", " ", 
          SuperscriptBox["10", "7"]}], "]"}], ",", 
        RowBox[{"nSi", "[", 
         RowBox[{"\[Omega]sf", " ", 
          SuperscriptBox["10", "7"]}], "]"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"OutputTransferC", "[", 
        RowBox[{
        "p", ",", "\[Omega]sf", ",", "\[Theta]pm", ",", "n0", ",", "ndlist", 
         ",", "nkp1", ",", "v", ",", 
         RowBox[{"nshlist", "[", 
          RowBox[{"[", "v", "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "3"}], "}"}]}], "]"}]}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.598638082479082*^9, 3.598638085819086*^9}, {
   3.598638182985223*^9, 3.5986382053372545`*^9}, {3.598638342835448*^9, 
   3.598638491144656*^9}, {3.5986385256957045`*^9, 3.5986387105679636`*^9}, {
   3.5986387517810216`*^9, 3.59863877917206*^9}, {3.5986388442851515`*^9, 
   3.5986391650376015`*^9}, 3.5986392610127363`*^9, 3.5986396371802645`*^9},
 CellLabel->"In[8]:=",
 CellID->40575500],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"0.0008814211479508195`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.0008889265175243561`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{
      RowBox[{"-", "0.001643725593154417`"}], "-", 
      RowBox[{"0.00024063688320803065`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{
      RowBox[{"-", "0.0011128275325082775`"}], "+", 
      RowBox[{"0.000026036874556821418`", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.598638940656287*^9, 3.5986389913893585`*^9, 3.598639165968603*^9, 
   3.5986392018406534`*^9, {3.598639261652737*^9, 3.598639310676806*^9}, {
   3.598639620349241*^9, 3.5986396378502655`*^9}},
 CellLabel->"Out[8]=",
 CellID->189084484]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection"],

Cell[BoxData[
 InterpretationBox[Cell["DetectionSide", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 755},
WindowMargins->{{Automatic, 84}, {Automatic, 85}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[20605, 676, 100, 2, 70, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 22367, 739}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 70, "Categorization",
 CellID->686433507],
Cell[1059, 45, 103, 2, 70, "Categorization",
 CellID->153672950],
Cell[1165, 49, 91, 2, 70, "Categorization",
 CellID->88874103],
Cell[1259, 53, 107, 2, 70, "Categorization",
 CellID->152850742]
}, Closed]],
Cell[CellGroupData[{
Cell[1403, 60, 55, 1, 17, "KeywordsSection",
 CellID->477174294],
Cell[1461, 63, 45, 1, 17, "Keywords",
 CellID->1164421360]
}, Open  ]],
Cell[CellGroupData[{
Cell[1543, 69, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[1611, 72, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1708, 76, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1793, 80, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1877, 84, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[1996, 91, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2052, 94, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2118, 98, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2190, 102, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2257, 106, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2329, 110, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2393, 114, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2457, 118, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2523, 122, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2604, 126, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2708, 133, 58, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[2769, 136, 5283, 177, 178, "Usage"],
Cell[8055, 315, 948, 33, 41, "Notes",
 CellID->227795206],
Cell[9006, 350, 212, 4, 23, "Notes"],
Cell[9221, 356, 699, 17, 80, "3ColumnTableMod"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9957, 378, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[10017, 381, 45, 1, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[10099, 387, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[10185, 390, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[10280, 396, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[10348, 399, 444, 8, 29, "RelatedLinks",
 CellID->148884605],
Cell[10795, 409, 476, 8, 29, "RelatedLinks",
 CellID->134447493]
}, Open  ]],
Cell[CellGroupData[{
Cell[11308, 422, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[11366, 425, 664, 20, 19, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[12067, 450, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[12127, 453, 260, 6, 70, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[12424, 464, 356, 11, 70, "PrimaryExamplesSection",
 CellID->880084151],
Cell[12783, 477, 364, 7, 70, "Notes",
 CellID->9946451],
Cell[CellGroupData[{
Cell[13172, 488, 261, 5, 70, "Input",
 CellID->835767564],
Cell[13436, 495, 713, 13, 70, "Message",
 CellID->147747017],
Cell[14152, 510, 704, 13, 70, "Message",
 CellID->158155841],
Cell[14859, 525, 696, 13, 70, "Message",
 CellID->6060215]
}, Open  ]],
Cell[CellGroupData[{
Cell[15592, 543, 3520, 91, 70, "Input",
 CellID->40575500],
Cell[19115, 636, 1441, 34, 70, "Output",
 CellID->189084484]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20605, 676, 100, 2, 70, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[20708, 680, 125, 3, 70, "ExampleSection",
 CellID->1293636265],
Cell[20836, 685, 148, 3, 70, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[21009, 692, 106, 2, 70, "ExampleSection"],
Cell[21118, 696, 118, 2, 70, "ExampleSubsection"]
}, Closed]],
Cell[21251, 701, 131, 3, 70, "ExampleSection",
 CellID->258228157],
Cell[21385, 706, 142, 3, 70, "ExampleSection",
 CellID->2123667759],
Cell[21530, 711, 135, 3, 70, "ExampleSection",
 CellID->1305812373],
Cell[21668, 716, 140, 3, 70, "ExampleSection",
 CellID->1653164318],
Cell[21811, 721, 132, 3, 70, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

